Option Explicit
Sub F_Sample032()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    'Microsoft ADO Ext. 2.1 for DDL and Security ]wޥζ
    Dim myCat As New ADOX.Catalog
    Dim myCon As ADODB.Connection
    Dim myFileFullName As String
    'ws@ɮצW
    myFileFullName = ThisWorkbook.Path & "\NewDb.mdb"
    'PWmdbɮצsbɴNNR
    If Dir(myFileFullName) <> "" Then Kill myFileFullName
    myCat.Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myFileFullName
    Set myCon = myCat.ActiveConnection
    Debug.Print myCon.ConnectionString
    If Dir(myFileFullName) <> "" Then MsgBox "mdbɮפwgQs@X"
    myCon.Close
    Set myCon = Nothing					'
    Set myCat = Nothing
End Sub
